Skunkware 5/Skunkware 5.iso/lib/logolib/arraytolist

Text File | 1995-05-03 | 147b | 6 lines

to arraytolist :array [:dim count :array] [:limit :dim + first :array]
op cascade :dim [fput item (:limit - #) :array ?] []
end

bury "arraytolist